
#Region "Summary"
''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvCarFuel
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Query Result Single Business Entity
''' </summary>
''' <remarks>
''' Sample of business entity coding
''' </remarks>
''' <history>
''' 	[Generater by Nok]	21/3/2549 15:43:26	Created
''' </history>
''' -----------------------------------------------------------------------------
#End Region

#Region ".NET Framework Class Import"
Imports System
Imports System.Xml.Serialization
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Collections
#End Region

<Serializable()> _
Public Class QueryInvCarFuel
#Region "Internal member variables"
    Private _FuelID As Int16
    Private _FuelName As String
    Private _FuelLite As String
    Private _FuelStatus As Byte
#End Region

    Public Sub New()
        _FuelID = Nothing
        _FuelName = Nothing
        _FuelLite = Nothing
        _FuelStatus = Nothing
    End Sub

    Public Sub New(ByVal FuelID As Int16, _
       ByVal FuelName As String, _
       ByVal FuelLite As String, _
       ByVal FuelStatus As Byte)
        _FuelID = FuelID
        _FuelName = FuelName
        _FuelLite = FuelLite
        _FuelStatus = FuelStatus
    End Sub

#Region "Property"

    Public Property FuelID() As Int16
        Get
            Return _FuelID
        End Get
        Set(ByVal value As Int16)
            _FuelID = value
        End Set
    End Property


    Public Property FuelName() As String
        Get
            Return _FuelName
        End Get
        Set(ByVal value As String)
            _FuelName = value
        End Set
    End Property


    Public Property FuelLite() As String
        Get
            Return _FuelLite
        End Get
        Set(ByVal value As String)
            _FuelLite = value
        End Set
    End Property


    Public Property FuelStatus() As Byte
        Get
            Return _FuelStatus
        End Get
        Set(ByVal value As Byte)
            _FuelStatus = value
        End Set
    End Property

#End Region
End Class

''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvCarFuels
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Collection of query result
''' </summary>
''' <remarks>
''' Sample
''' </remarks>
''' <history>
''' 	[NOK'S Generater]	21/3/2549 15:43:26	Created
''' </history>
''' -----------------------------------------------------------------------------
<Serializable()> _
Public Class QueryInvCarFuels
    Inherits CollectionBase


    Default Public ReadOnly Property Item(ByVal index As Integer) As QueryInvCarFuel
        Get
            If (index < 0 Or index >= Me.InnerList.Count) Then
                Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
            Else
                Return CType(Me.InnerList(index), QueryInvCarFuel)
            End If
        End Get
    End Property

    Public Sub Add(ByVal info As QueryInvCarFuel)
        Me.InnerList.Add(info)
    End Sub

    Public Sub SetItem(ByVal index As Integer, ByVal value As QueryInvCarFuel)
        If (index < 0 Or index >= Me.InnerList.Count) Then
            Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
        Else
            Me.InnerList(index) = value
        End If
    End Sub


End Class

